home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / misc / SP_ProjectMan.lha / SP-ProjectMan / sp-projectman.install < prev    next >
Text File  |  1998-01-10  |  7KB  |  164 lines
  1. ; $VER: SP-ProjectMan.install 1.00 (30.12.97)
  2. ; Install script for SP-ProjectMan 1.00
  3.  
  4. (complete 0)
  5. (set ProgAssign "SP-ProjectMan")
  6. (set ProgramAssign (cat ProgAssign ":"))
  7. (set ProgramDir "SP-ProjectMan")
  8. (set ProgramName "SP-ProjectMan")
  9. (set EnvVarName "SP-ProjectMan")
  10. (set MUIEnvDir "ENVARC:mui")
  11.  
  12. (set @language (getenv "language"))
  13.  
  14. (complete 1)
  15. (if (= @language "français")
  16.  (
  17.   (set DestDirPrompt (cat "Spécifiez le répertoire où installer " ProgramName ".\nLe répertoire \"" ProgramDir "\" sera créé si nécessaire."))
  18.   (set DestDirHelp (cat "Tous les fichiers de l'application seront copiés dans le répertoire .../" ProgramDir " ainsi créé."
  19.             " Si le répertoire existe déja, les fichiers seront remplacés en fonction de leur numéro de version."))
  20.   (set CopyProgramPrompt (cat "Copie du fichier \"" ProgramName "\":"))
  21.   (set CopyProgramHelp "Il s'agit du programme exécutable.")
  22.   (set DestDirFileMess "Le nom de répertoire spécifié est déja utilisé par un fichier.")
  23.   (set SameVersionMess "Cette version (%ld.%ld) du programme a déjà été installée. Faut-il quand même le réinstaller?")
  24.   (set SameVersionHelp (cat "En principe, il est inutile de réinstaller la même version du programme. "
  25.                 "Toutefois, il se peut que suite à une manipulation erronée ou quelque autre circonstance malencontreuse,"
  26.                 " l'un ou l'autre des fichiers ait été corrompu. Dans ce cas, une réinstallation peut etre utile."))
  27.   (set DataDirPrompt "Spécifiez le répertoire où installer les fichiers de travail.\nLe répertoire sera créé au besoin.")
  28.   (set DataDirHelp (cat "Ce répertoire regroupe les fichiers contenant des données modifiables par le programme. "
  29.               "Celà permet d'installer le programme dans un répertoire qui pourra par la suite être protégé contre l'écriture."))
  30.  )
  31.  (
  32.   (set DestDirPrompt (cat "Specify the directory where to install " ProgramName ".\nThe \"" ProgramDir "\" directory will be created if needed."))
  33.   (set DestDirHelp (cat "All the application files will be copied in the created .../" ProgramDir " directory."
  34.             " If the directory already exists, the file will be replaced depending of their version number."))
  35.   (set CopyProgramPrompt (cat "Copy file \"" ProgramName "\":"))
  36.   (set CopyProgramHelp "This is the executable program file.")
  37.   (set DestDirFileMess "The specified directory name is already used by a file.")
  38.   (set SameVersionMess "The same version (%ld.%ld) of the program is already installed. Reinstall it anyway?")
  39.   (set SameVersionHelp (cat "By principle, there is no need to reinstall the same version of the program."
  40.                   " However, it's possible that following some wrong operation or any unfortunate circumstance,"
  41.                   " one or another file was corrupted. In such a case, a reinstallation may be useful."))
  42.   (set DataDirPrompt "Specify the directory where to install the work files.\nThe directory will be created if needed.")
  43.   (set DataDirHelp (cat "This directory stores the files modifiable by the program."
  44.               "This makes possible to install the program in a directory that could be write protected."))
  45.  )
  46. )
  47. (complete 2)
  48.  
  49. (if (exists ProgramAssign (noreq))
  50.  (set @default-dest (pathonly (expandpath ProgramAssign)))
  51. )
  52.  
  53. (set DestDir (askdir (prompt DestDirPrompt) (help DestDirHelp) (default @default-dest) (disk)))
  54.  
  55. (set @default-dest (tackon DestDir ProgramDir))
  56.  
  57. (if (= 1 (exists @default-dest (noreq)))
  58.  (
  59.   (abort DestDirFileMess)
  60.  )
  61. )
  62. (complete 3)
  63.  
  64. (if (= 0 (exists @default-dest (noreq)))
  65.  (makedir @default-dest (infos))
  66. )
  67.  
  68. (complete 10)
  69. (set FontDir     (tackon @default-dest "Fonts"))
  70. (set ClassesDir  (tackon @default-dest "Classes"))
  71. (set CatalogsDir (tackon @default-dest "Catalogs"))
  72. (set RexxDir     (tackon @default-dest "Rexx"))
  73. (set DataDir     (tackon @default-dest ""))
  74. (set DocsDir     (tackon @default-dest "Docs"))
  75.  
  76. (set VersionDest   (getversion (tackon @default-dest ProgramName)))
  77. (set VersionSource (getversion ProgramName))
  78. (set Version  (/ VersionSource 65536))
  79. (set Revision (- VersionSource (* Version 65536)))
  80.  
  81. (if (= VersionDest VersionSource)
  82.  (
  83.   (set InstallProg (askbool (prompt (SameVersionMess Version Revision)) (help SameVersionHelp)))
  84.  )
  85.  (set InstallProg 1)
  86. )
  87.  
  88. (complete 20)
  89. (if (= 1 InstallProg)
  90.  (
  91. (complete 21)
  92.   (if (= VersionDest VersionSource)
  93.    (
  94. (complete 22)
  95.     (copyfiles (source ProgramName) (dest @default-dest) (infos) (optional "force"))
  96. (complete 23)
  97.    )
  98.    (
  99. (complete 24)
  100.     (copylib (source ProgramName) (dest @default-dest) (infos) (optional "askuser") (confirm) (prompt CopyProgramPrompt) (help CopyProgramHelp))
  101. (complete 25)
  102.    )
  103.   )
  104. (complete 40)
  105.   (set VersionDest   (getversion (tackon @default-dest ProgramName)))
  106. (complete 45)
  107.   (if (= VersionDest VersionSource)
  108.    (
  109. (complete 50)
  110.     (copyfiles (source "Fonts") (dest FontDir) (all) (infos) (fonts) (optional "force"))
  111. (complete 60)
  112.     (copyfiles (source "Classes") (dest ClassesDir) (all) (infos) (optional "force"))
  113. (complete 70)
  114.     (copyfiles (source "Catalogs") (dest CatalogsDir) (all) (infos) (optional "force"))
  115. (complete 75)
  116.     (copyfiles (source "Rexx") (dest RexxDir) (all) (infos) (optional "force"))
  117. (complete 80)
  118.     (copyfiles (source "Docs") (dest DocsDir) (all) (infos) (optional "force"))
  119. (complete 85)
  120.     (copyfiles (source "Env") (dest MUIEnvDir) (all) (infos) (optional "force"))
  121. (complete 90)
  122.     (if (NOT (exists (tackon "ENV:" EnvVarName)))
  123.      (
  124. (complete 90)
  125.       (set DataDir (askdir (prompt DataDirPrompt) (help DataDirHelp) (default DataDir) (newpath)))
  126. (complete 91)
  127.       (if (= 0 (exists DataDir (noreq)))
  128.        (
  129. (complete 92)
  130.         (makedir DataDir (infos))
  131. (complete 93)
  132.        )
  133.       )
  134.       (textfile (dest (tackon "ENV:" EnvVarName)) (append DataDir))
  135. (complete 94)
  136.       (textfile (dest (tackon "ENVARC:" EnvVarName)) (append DataDir))
  137. (complete 95)
  138.      )
  139.     )
  140.    )
  141.   )
  142.   (if (= @language "français")
  143.    (
  144.     (set StartupPrompt (cat "L'installation va maintenant inclure les assignations suivantes dans le fichier s:user-startup:\n\n\"assign "
  145.                              ProgramAssign " " @default-dest "\"\n\n\"assign REXX: " RexxDir " add\""))
  146.     (set StartupHelp (cat "Ces assignations permettent de retrouver automatiquement les fichiers associée à l'application \"" ProgramName
  147.                           "\""))
  148.    )
  149.    (
  150.     (set StartupPrompt (cat "The installer will now include the following assigns in the s:user-startup file:\n\n\"assign "
  151.                              ProgramAssign " " @default-dest "\"\n\n\"assign REXX: " RexxDir " add\""))
  152.     (set StartupHelp (cat "This assign enables automatic retrieval of the files assocaited to the \"" ProgramName "\ application."))
  153.    )
  154.   )
  155.   (makeassign ProgAssign @default-dest)
  156.   (makeassign "Rexx" RexxDir)
  157.   (startup ProgramName (prompt StartupPrompt) (help StartupHelp)
  158.    (command (cat "assign " ProgramAssign " " @default-dest "\n"))
  159.    (command (cat "assign Rexx: " RexxDir " add"))
  160.   )
  161.  )
  162. )
  163. (complete 100)
  164.